home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 January / PCWorld_2007-01_cd.bin / v cisle / autoit / autoit-v3.2.0.1-setup.exe / Examples / Helpfile / _ArraySearch.au3 < prev    next >
Encoding:
Text File  |  2006-06-17  |  501 b   |  19 lines
  1. #Include<Array.au3>
  2. Dim $Array[6]
  3. $Array[0] = "String0"
  4. $Array[1] = "String1"
  5. $Array[2] = "String2"
  6. $Array[3] = "String3"
  7. $Array[4] = "String4"
  8. $Array[5] = "String5"
  9.  
  10. $Input = InputBox("ArraySearch Demo", "String To Find?")
  11. If @error Then Exit
  12.  
  13. $Pos = _ArraySearch ($Array, $Input)
  14. Select
  15.     Case $Pos = -1
  16.         MsgBox(0, "Not Found", '"' & $Input & '" was not found in the array.')
  17.     Case Else
  18.         MsgBox(0, "Found", '"' & $Input & '" was found in the array at pos ' & $Pos & ".")
  19. EndSelect